home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Interactive CD Sampler / Microsoft Interactive CD Sampler.iso / DEMOS / PICTURE / PICTURI2.DIR / 00056.ls < prev    next >
Encoding:
Text File  |  1996-09-05  |  884 b   |  36 lines
  1. on mouseDown
  2.   repeat while the stillDown = 1
  3.     set the locH of sprite 20 to the mouseH
  4.     set the locV of sprite 20 to the mouseV
  5.     if rollOver(4) then
  6.       set the castNum of sprite 4 to the number of member "capturedown"
  7.     else
  8.       set the castNum of sprite 4 to the number of member "capturebox"
  9.     end if
  10.     updateStage()
  11.   end repeat
  12. end
  13.  
  14. on mouseUp
  15.   if rollOver(4) then
  16.     puppetSprite(4, 0)
  17.     puppetSprite(5, 0)
  18.     puppetSprite(6, 0)
  19.     puppetSprite(7, 0)
  20.     puppetSprite(8, 0)
  21.     puppetSprite(9, 0)
  22.     puppetSprite(10, 0)
  23.     puppetSprite(11, 0)
  24.     puppetSprite(12, 0)
  25.     puppetSprite(20, 0)
  26.     set the castNum of sprite 4 to the number of member "capturehot"
  27.     updateStage()
  28.     puppetSound(1, "sfx02")
  29.     updateStage()
  30.     go("captureit")
  31.   else
  32.     set the castNum of sprite 4 to the number of member "capturebox"
  33.     updateStage()
  34.   end if
  35. end
  36.